home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / mq which (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  170 lines
  1. 1 rem *** which is ... module ***
  2. 2 rem lists for kids
  3. 3 rem (in direct mode, type 'poke 53265,peek(53265)or 64' to make shifted
  4. 4 rem characters show up when typing them in
  5. 10 ff$="which is ..."
  6. 11 ff$="@0:q "+left$(ff$,14)+",s,w"
  7. 12 open 2,8,2,ff$
  8. 15 z$=chr$(13)
  9. 17 poke 53265,peek(53265)or 64
  10. 19 rem * how many quizzes?
  11. 20 nq=8:print#2,nq
  12. 30 for i=1 to nq:read tn:print#2,tn
  13. 32 for j=0 to 3:read a:print#2,a:poke 53281+j,a:next:poke 53280,peek(53281)
  14. 34 for j=0 to 3:read fc$(j):print#2,fc$(j):next
  15. 36 read a$,b$:a$=fc$(3)+a$:b$=fc$(0)+b$:print#2,a$z$b$:print"[147]"a$:print b$
  16. 38 read a$,b$:a$=fc$(1)+a$:b$=fc$(1)+b$:print#2,a$z$b$:print a$b$
  17. 40 for j=1 to tn
  18. 42 read a$,b$:c$="":a$=" "+a$:for k=1 to len(b$):a=asc(mid$(b$,k,1))
  19. 44 if a<32 or a>95 then a=160:goto 47
  20. 45 if a>63 then a=a+32:goto 47
  21. 46 a=a+128
  22. 47 c$=c$+chr$(a):next:b$="[160]"+c$+"[146]"
  23. 49 print#2,a$z$b$:print ""fc$(2)a$"[146]"fc$(3)b$:next:next
  24. 50 close 2:print "";:end
  25. 99 rem ** quiz #1
  26. 100 data 7,6,8,5,7,"","[158]","[158]",""
  27. 101 rem * quiz title
  28. 102 data "[160][160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][211][200][207][210][212][197][211][212][191][160][160][160][160][160][160][160][160][160][160][160][146]"
  29. 103 rem * format line
  30. 104 data " put in order from shortest to longest "
  31. 105 rem * column headers
  32. 106 data "[160][212][200][201][211][160][204][207][206][199][160][174][174][174][160][160][160][160][160][160][160]"
  33. 108 data "[160][201][211][160][212][200][201][211][160][205][193][206][217][160][174][174][174][160]"
  34. 109 rem ** quiz items
  35. 110 data "inch          (in.) ","2.54 centimeters "
  36. 111 data "foot          (ft.) ","12 inches        "
  37. 112 data "yard          (yd.) ","3 ft.(36 in.)    "
  38. 113 data "rod           (rd.) ","5.5 yd.(16.5 ft.)"
  39. 114 data "furlong      (fur.) ","40 rd.(660 ft.)  "
  40. 115 data "mile          (mi.) ","8 fur.(5^280 ft.)"
  41. 116 data "league              ","3 mi.(5^280 yd.) "
  42. 199 rem ** quiz #2
  43. 200 data 7,14,7,4,8,"","[144]","[144]",""
  44. 201 rem * quiz title
  45. 202 data "[160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][211][200][207][210][212][197][211][212][191][173][173][205][197][212][210][201][195][160][160][160][160][160][160][160][146]"
  46. 203 rem * format line
  47. 204 data " arrange these measures^shortest first "
  48. 205 rem * headers
  49. 206 data "[160][205][197][193][211][213][210][197][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  50. 208 data "[160][201][211][160][205][193][196][197][160][207][198][160][174][174][174][160][160][160]"
  51. 209 rem ** quiz items in correct order
  52. 210 data "millimeter      (mm)","0.001 meter      "
  53. 211 data "centimeter      (cm)","10 mm (0.01 m)   "
  54. 212 data "decimeter       (dm)","10 cm (0.1 m)    "
  55. 213 data "meter            (m)","10 dm (39.37 in.)"
  56. 214 data "dekameter      (dam)","10 m             "
  57. 215 data "hectometer      (hm)","10 dam (100 m)   "
  58. 216 data "kilometer       (km)","10 hm (1000 m)   "
  59. 299 rem ** quiz #3
  60. 300 data 7,2,4,7,1,"","[144]","[144]",""
  61. 301 rem * quiz title
  62. 302 data "[160][160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][196][193][217][160][201][211][160][206][197][216][212][191][160][160][160][160][160][160][160][160][160][160][160][146]"
  63. 303 rem * format line
  64. 304 data " arrange the days of the week in order "
  65. 305 rem * headers
  66. 306 data "[160][196][193][217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  67. 308 data "[160][207][210][201][199][201][206][193][204][160][205][197][193][206][201][206][199][160]"
  68. 309 rem ** quiz items in correct order
  69. 310 data "sunday              ","sun's day        "
  70. 311 data "monday              ","moon's day       "
  71. 312 data "tuesday             ","tiw's day        "
  72. 313 data "wednesday           ","woden's day      "
  73. 314 data "thursday            ","thor's day       "
  74. 315 data "friday              ","fria's day       "
  75. 316 data "saturday            ","saturn's day     "
  76. 399 rem ** quiz #4
  77. 400 data 12,3,4,5,6,"","","[144]","[158]"
  78. 401 rem * quiz title
  79. 402 data "[160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][205][207][206][212][200][160][201][211][160][206][197][216][212][191][160][160][160][160][160][160][160][160][160][160][146]"
  80. 403 rem * format line
  81. 404 data " arrange the months from first to last "
  82. 405 rem * headers
  83. 406 data "[160][205][207][206][212][200][160][160][160][160][160][206][207][174][207][198][160][196][193][217][211]"
  84. 408 data "[160][206][193][205][197][160][195][193][205][197][160][198][210][207][205][173][173][160]"
  85. 409 rem ** quiz items in correct order
  86. 410 data "january           31","janus--roman god "
  87. 411 data "february    28 or 29","februa--feasts   "
  88. 412 data "march             31","mars--roman god  "
  89. 413 data "april             30","aprilis (? aphro)"
  90. 414 data "may               31","maia--rom.goddess"
  91. 415 data "june              30","junius (? juno)  "
  92. 416 data "july              31","julius caesar    "
  93. 417 data "august            31","augustus caesar  "
  94. 418 data "september         30","'seventh month'  "
  95. 419 data "october           31","'eighth month'   "
  96. 420 data "november          30","'ninth month'    "
  97. 421 data "december          31","'tenth month'    "
  98. 499 rem ** quiz #5
  99. 500 data 9,6,14,1,8,"","[144]","",""
  100. 501 rem * quiz title
  101. 502 data "[160][160][160][160][160][160][160][215][200][201][195][200][160][208][204][193][206][197][212][160][201][211][160][200][207][212][212][197][211][212][191][160][160][160][160][160][160][160][160][146]"
  102. 503 rem * format line
  103. 504 data " distance from sun^nearest to farthest "
  104. 505 rem * headers
  105. 506 data "[160][208][204][193][206][197][212][160][206][193][205][197][160][160][160][160][160][160][160][160][160]"
  106. 508 data "[160][198][193][210][212][200][197][211][212][160][196][201][211][212][193][206][195][197]"
  107. 509 rem ** quiz items in correct order
  108. 510 data "mercury             ","  43.4 mill.miles"
  109. 511 data "venus               ","  67.7 mill.miles"
  110. 512 data "earth               ","  94.6 mill.miles"
  111. 513 data "mars                "," 155.0 mill.miles"
  112. 514 data "jupiter             "," 507.0 mill.miles"
  113. 515 data "saturn              "," 937.5 mill.miles"
  114. 516 data "uranus              ","1859.7 mill.miles"
  115. 517 data "neptune             ","2821.7 mill.miles"
  116. 518 data "pluto               ","4551.4 mill.miles"
  117. 599 rem ** quiz #6
  118. 600 data 6,12,11,13,10,"[158]","","","[149]"
  119. 601 rem * quiz title
  120. 602 data "[160][160][160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][204][201][199][200][212][197][211][212][191][160][160][160][160][160][160][160][160][160][160][146]"
  121. 603 rem * format line
  122. 604 data "   weights from lightest to heaviest   "
  123. 605 rem * headers
  124. 606 data "[160][215][197][201][199][200][212][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  125. 608 data "[160][201][211][160][205][193][196][197][160][207][198][160][174][174][174][160][160][160]"
  126. 609 rem ** quiz items in correct order
  127. 610 data "grain          (gr.)","64.8 milligrams  "
  128. 611 data "dram           (dr.)","27-11/32 grains  "
  129. 612 data "ounce          (oz.)","16 drams         "
  130. 613 data "pound          (lb.)","16 ounces        "
  131. 614 data "hundredweight (cwt.)","100 pounds       "
  132. 615 data "ton                 ","20 cwt.(2000 lb.)"
  133. 699 rem ** quiz #7
  134. 700 data 9,3,9,1,5,"[144]","[158]","[149]","[144]"
  135. 701 rem * quiz title
  136. 702 data "[160][160][160][160][160][160][160][160][160][211][207][205][197][212][200][201][206][199][167][211][160][195][207][207][203][201][206][199][160][160][160][160][160][160][160][160][160][160][160][146]"
  137. 703 rem * format line
  138. 704 data "   recipe measures from least to most  "
  139. 705 rem * headers
  140. 706 data "[160][205][197][193][211][213][210][197][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  141. 708 data "[160][201][211][160][205][193][196][197][160][213][208][160][207][198][160][174][174][174]"
  142. 709 rem ** quiz items in correct order
  143. 710 data "drop                ","not very much    "
  144. 711 data "teaspoon      (tsp.)","60 drops         "
  145. 712 data "tablespoon    (tbl.)","3 teaspoons      "
  146. 713 data "ounce          (oz.)","2 tablespoons    "
  147. 714 data "gill                ","4 ounces         "
  148. 715 data "cup                 ","8 oz. (16 tbl.)  "
  149. 716 data "pint           (pt.)","2 cups (16 oz.)  "
  150. 717 data "quart          (qt.)","2 pints (32 oz.) "
  151. 718 data "gallon        (gal.)","4 qt.(3.785 l)   "
  152. 799 rem ** quiz #8
  153. 800 data 8,5,13,2,10,"","[144]","","[144]"
  154. 801 rem * quiz title
  155. 802 data "[160][160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][195][204][207][211][197][211][212][160][212][207][160][200][207][205][197][191][160][160][160][160][160][160][160][146]"
  156. 803 rem * format line
  157. 804 data "    you live 'in' all these places     "
  158. 805 rem * headers
  159. 806 data "[160][217][207][213][160][204][201][214][197][160][201][206][160][174][174][174][160][160][160][160][160]"
  160. 808 data "[160][201][212][160][201][211][160][193][160][174][174][174][160][160][160][160][160][160]"
  161. 809 rem ** revise this list to fit your own situation  ************************
  162. 810 data "675 lindley rd.     ","house/apartment  "
  163. 811 data "friendship          ","township/borough "
  164. 812 data "greensboro          ","town/city        "
  165. 813 data "guilford            ","county/parish    "
  166. 814 data "north carolina      ","state/province   "
  167. 815 data "united states       ","nation           "
  168. 816 data "north america       ","continent        "
  169. 817 data "earth               ","planet           "
  170.